;

(deftemplate przedmiot
	(slot posiadacz)
	(slot typ)
	(slot w_uzyciu (allowed-values tak nie) (default nie))
)

;
(deffacts pieszy3
	(osoba
		(nazwa pieszy3)
		(koszt 0)
		(szybkosc 9)
		(bezpieczenstwo 60)
		(wygoda 30)
		(pojazd_mechaniczny nie)
		(rodzaj_pojazdu brak)
	)
)

;
(deffacts odblask
	(przedmiot
		(posiadacz pieszy3)
		(typ odblask)
		(w_uzyciu nie)
	)
)

	
(defrule wloz_odblaski 
	
	?osoba <- (osoba (nazwa ?na) (bezpieczenstwo ?be) (szybkosc ?szy) (rodzaj_pojazdu brak))
	?przed <- (przedmiot (posiadacz ?nn) (typ ?ty) (w_uzyciu nie))
	(or (pogoda (typ deszcz)) 
		(pogoda (typ mgla))
		(pogoda (typ snieg))
		
	)
	
		=>
		   (if (= (str-compare ?na ?nn) 0) 
				then 
					(modify ?osoba(bezpieczenstwo (+ ?be 10)) (szybkosc (+ ?szy 1)))
					(modify ?przed(w_uzyciu tak))
					(printout t ?na " ma odblask" crlf)
			)
	
)	

